home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / bbsLog99.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-13  |  1KB  |  59 lines
  1. /* $VER: bbsLog99.rexx 8.4 (13.1.95) */
  2.  
  3. PARSE ARG mode' 'sendline 
  4.  
  5. bbspath=GETCLIP('BBS_path')
  6. bbsname=GETCLIP('BBS_bbsname')
  7. def=''
  8. pen3=''
  9. lynes.=''
  10. lynes.0=2
  11. IF mode='USER' THEN
  12.   DO
  13.     lynes.1='        -'pen3 bbsname def'user log for the last 99 calls -'
  14.     logfile=bbspath'Usage/USER.LOG'
  15.   END
  16. ELSE
  17.   DO
  18.     logfile=bbspath'Logs/'mode'.log'
  19.     IF mode='QUICK' THEN
  20.       lynes.1='     -'pen3 bbsname def'QUICK log for the last 50 requests -'
  21.     ELSE IF mode='NUMBERS' THEN
  22.       lynes.1='        -'pen3 bbsname def'- Numbers Checker Log -'
  23.     ELSE lynes.1='         -' mode 'log -'
  24.   END
  25. lynes.2=sendline
  26. IF EXISTS(logfile) THEN
  27.   DO
  28.     x=OPEN(f,logfile,'R')
  29.     IF x=0 THEN
  30.       DO
  31.         CALL DELAY(250)
  32.         x=OPEN(f,logfile,'R')
  33.       END
  34.     IF x=0 THEN EXIT
  35.     CALL READLN(f)
  36.     DO i=3 TO 99
  37.       sendline=READLN(f)
  38.       IF EOF(f) THEN LEAVE i
  39.       lynes.i=sendline
  40.     END
  41.     CALL CLOSE(f)
  42.     CALL DELAY(28)
  43.     IF i>99 THEN lynes.0=99
  44.     ELSE lynes.0=i-1
  45.   END
  46. x=OPEN(f,logfile,'W')
  47. IF x=0 THEN
  48.   DO
  49.     CALL DELAY(250)
  50.     x=OPEN(f,logfile,'W')
  51.   END
  52. IF x=0 THEN EXIT
  53. DO i=1 TO lynes.0
  54.   CALL WRITELN(f,lynes.i)
  55. END
  56. CALL CLOSE(f)
  57.  
  58. /* bbsLog99.rexx */
  59.